home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getuni1r / cdxvbmus.cls next >
Text File  |  1999-08-18  |  2KB  |  49 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CDXVBMusic"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Public m_hWnd As Long
  15.  
  16. Public Sub Create(hWnd As Long)
  17.     m_hWnd = hWnd
  18. End Sub
  19.  
  20. Public Function PlayMusic(Filename As String) As Boolean
  21.     If mciSendString("close all", ByVal 0&, 0, ByVal 0&) <> 0 Then PlayMusic = False: Exit Function
  22.     If mciSendString("open " & Filename & " type sequencer alias MUSIC", ByVal 0&, 0, ByVal 0&) <> 0 Then PlayMusic = False: Exit Function
  23.     If mciSendString("play MUSIC from 0 notify", ByVal 0&, 0, m_hWnd) <> 0 Then PlayMusic = False: Exit Function
  24.     PlayMusic = True
  25. End Function
  26.  
  27. Public Sub StopMusic()
  28.     mciSendString "close all", ByVal 0&, 0, ByVal 0&
  29. End Sub
  30.  
  31. Public Function PauseMusic() As Boolean
  32.     If mciSendString("stop MUSIC", ByVal 0&, 0, ByVal 0&) <> 0 Then Pause = False: Exit Function
  33.     Pause = True
  34. End Function
  35.  
  36. Public Function ResumeMusic() As Boolean
  37.     If mciSendString("play MUSIC notify", ByVal 0&, 0, ByVal 0&) <> 0 Then ResumeMusic = False: Exit Function
  38.     ResumeMusic = True
  39. End Function
  40.  
  41. Public Function RestartMusic() As Boolean
  42.     If mciSendString("play MUSIC from 0 notify", ByVal 0&, 0, m_hWnd) <> 0 Then RestartMusic = False: Exit Function
  43.     RestartMusic = True
  44. End Function
  45.  
  46. Private Sub Class_Terminate()
  47.     StopMusic
  48. End Sub
  49.